10 POKE55,0:POKE56,56:CLR
12 PC$="12":PC$=PC$+PC$
14 DV=PEEK(186):IFDV<8THENDV=8
16 POKE53371,0
20 ML=49152:PD=52736:PC=52992:CM=828
40 SYS57812"DUMP FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
50 SYS57812"UPDRIVER",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
60 SYS57812"UPDCODES",DV,0:POKE780,0:POKE781,0:POKE782,207:SYS65493
70 GOSUB52000
120 :
140 PRINT"[147]";:POKE53280,6:POKE53281,1:POKE53272,31
150 BK$="@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
152 RV$="                                      "
160 FORI=1TO24:PRINTBK$;:NEXT:PRINTLEFT$(BK$,39)""
162 POKE2023,0:POKE2023+54272,6
164 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
166 POKE214,2:PRINT:FORI=1TO3:PRINTTAB(8)LEFT$(RV$,25):NEXT
170 PRINTTAB(11)"[145][145][211] [212] [193] [210]    [196] [213] [205] [208]"
180 POKE214,8:PRINT
190 FORI=1TO9:PRINTTAB(8)LEFT$(RV$,25):NEXT
192 POKE214,9:PRINT
200 PRINTTAB(12)"(1) SINGLE DUMP
210 [153][163]12)"(2) DOUBLE DUMP"
212 [153][163]12)"(3) TRIPLE DUMP"
214 [153][163]12)"(4) QUIT
230 SYSCM,1024,64*256,1000:SYSCM,55296,68*256,1000
260 POKE198,0
262 GETA$:IFA$<"1"ORA$>"4"THEN262
270 ONVAL(A$)GOTO280,290,300,40000
280 F$="SINGLE DUMP C000":TB=26:GOTO310
290 F$="DOUBLE DUMP C000":TB=13:GOTO310
300 F$="TRIPLE DUMP C000":TB=0
310 PRINT"[147]"
312 POKE214,6:PRINT:FORI=1TO8:PRINTTAB(8)LEFT$(RV$,25):NEXT
320 POKE214,8:PRINT:PRINTTAB(16)"LOADING ":PRINTTAB(12)""F$
330 SYS57812F$,DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
340 POKE214,7:PRINT
350 PRINTTAB(9)" PRESS A KEY TO PRINT
352 [153][163]9)" THE PREVIOUS SCREEN.
354 PRINTTAB(9)" NOTICE HOW STAR DUMP "
356 PRINTTAB(9)" CAN PRINT SCREENS IN
358 [153][163]9)" MEMORY EVEN IF THEY
360 PRINTTAB(9)" AREN'T SHOWING.
370 [151]198,0
372 [161]A$:[139]A$[178]""[167]372
380 [158]ML,56[172]256,64[172]256,PD,PC:[158]ML[170]3,0,39,0,24,TB
382 [151]186,DV
390 [158]CM,64[172]256,1024,1000:[158]CM,68[172]256,55296,1000
400 [137]260
10000 D[178][194](186):N$[178]"B.STAR DUMP DEMO":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
50004 [142]
52000 A[178]0:I[178]0:AD[178]828
52002 [135]A:[139]A[179][177][171]1[167][151]AD[170]I,A:I[178]I[170]1:[137]52002
52004 [142]
52008 [131] 032,253,174,032,138,173,032
52010 [131] 247,183,132,176,133,177,032
52020 [131] 253,174,032,138,173,032,247
52030 [131] 183,132,178,133,179,032,253
52040 [131] 174,032,138,173,032,247,183
52050 [131] 073,255,133,181,152,073,255
52060 [131] 133,180,230,180,208,002,230
52070 [131] 181,160,000,177,176,145,178
52080 [131] 200,208,004,230,177,230,179
52090 [131] 230,180,208,241,230,181,208
52100 [131] 237,096,081,-1